From: Eli Zaretskii Date: Sat, 10 Mar 2007 19:22:39 +0000 (+0000) Subject: (icomplete-tidy, icomplete-exhibit): Bind deactivate-mark to nil. X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~1634 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=587305ff4ee6300cd4d48d42ff8cc95ebc841a18;p=emacs.git (icomplete-tidy, icomplete-exhibit): Bind deactivate-mark to nil. --- diff --git a/lisp/icomplete.el b/lisp/icomplete.el index 3ee53a821bf..6599c1442bc 100644 --- a/lisp/icomplete.el +++ b/lisp/icomplete.el @@ -219,7 +219,8 @@ and `minibuffer-setup-hook'." (when (and icomplete-mode icomplete-eoinput) (unless (>= icomplete-eoinput (point-max)) - (let ((buffer-undo-list t)) ; prevent entry + (let ((buffer-undo-list t) ; prevent entry + deactivate-mark) (delete-region icomplete-eoinput (point-max)))) ;; Reestablish the safe value. @@ -256,7 +257,8 @@ and `minibuffer-setup-hook'." minibuffer-completion-table minibuffer-completion-predicate (not minibuffer-completion-confirm))))) - (buffer-undo-list t)) + (buffer-undo-list t) + deactivate-mark) ;; Do nothing if while-no-input was aborted. (if (consp text) (insert (car text))))))))